From: Robert J. Chassell <bob@rattlesnake.com>
Date: Sat, 10 Jan 2004 15:01:51 +0000 (+0000)
Subject: (texinfo-menu-copy-old-description): do not copy `@detailmenu' or
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24523
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=59ca57d266eec8a49cd5f5991d5837ff0d3e620a;p=emacs.git

(texinfo-menu-copy-old-description): do not copy `@detailmenu' or
`@end menu' as descriptions!
---

diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 17b0affac92..a539ed9ff2c 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -618,10 +618,11 @@ Point must be located just after the node name.  Point left before description.
 Single argument, END-OF-MENU, is position limiting search."
   (skip-chars-forward "[:.,\t\n ]+")
   ;; don't copy a carriage return at line beginning with asterisk!
+  ;; don't copy @detailmenu or @end menu as descriptions!
   ;; do copy a description that begins with an `@'!
   ;; !! Known bug: does not copy descriptions starting with ^|\{?* etc.
   (if (and (looking-at "\\(\\w+\\|@\\)")
-	   (not (looking-at "\\(^\\* \\|^@end menu\\)")))
+	   (not (looking-at "\\(^\\* \\|^@detailmenu\\|^@end menu\\)")))
       (buffer-substring
        (point)
        (save-excursion